1 REM VAULT V2.6 BY C.M. BLAKEMORE
2 POKE53280,.:POKE53281,.:POKE808,234:GOTO123
3 VL=FC:ONFC+1GOSUB49,49,58,60,61
4 RETURN
5 GOSUB3:ONFC+1GOSUB72,62,67,70,71:RETURN
6 ONFC+1GOSUB74,75,76,77:RETURN
7 ONFC+1GOSUB78,79,80,81:RETURN
8 LP=FC:ONFC+1GOSUB82,86,88,90:RETURN
9 ONFC+1GOSUB91,93,95,96:RETURN
10 PRINT"[147][146] [205][207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][206]"
11 PRINT" [205][180]"TAB(37)"[170][206]"
12 PRINT" [205][180]"TAB(37)"[170][206]"
13 PRINT" [205][165]   [164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]   [167][206]
14 [153]" (null)FN  THEN(null)                          WAITSTEPFN  THEN(null)
15 PRINT" [205][165][160] [167] [223]                        [146][169] [165] [160][167][206]
16 [153]" (null)FN  THEN THEN(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)FN FN  THEN(null)
17 PRINT" [205][165]  [167] [167][205] [207][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][208][160][206][165] [165]  [167][206]
18 [153]"  FN  THEN THEN(null) FNTHEN(null)              WAITSTEPFNTHEN (null)FN FN CLOSETHEN
19 PRINT"  [165]  [167] [167][205] [165][167][167][205]            [206][165][165][167] [206][165] [165]  [167]
20 [153]"  (null)USRUSR(null) THEN(null) FNTHENTHEN(null)(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)(null)FNFNTHEN (null)FN (null)USRUSR(null)
21 PRINT"  [165][213][201][146][167] [167][160] [213][201][146][167][205][165][212][162][162][162][162][162][162][162][162][217][146][167][206][165][213][201][146] [160][165] [165][213][201][146][167]
22 [153]"  FNMID$(null)WAITTHEN THEN  MID$(null)WAITTHEN (null)(null)WAIT(null).LENLENLENLEN.WAIT(null)(null)(null)WAIT FNMID$(null)WAIT  FN FNMID$(null)WAITTHEN
23 PRINT"  [204][175][175][186] [167][160] [165][167][167][206][165][212][146][206][199][146]    [200][146][205][217][146][167][205][165][165][167] [160][165] [204][175][175][186]"
24 PRINT" [206][165][160] [167] [167][206] [165][167][167][206][165][212][146][206][163][163][163][163][163][163][205][217][146][167][205][165][165][167] [205][165][160][165] [160][167][205]
25 [153]" (null)FN  THENCLOSETHEN(null) FNTHENTHEN(null)(null)STEPTAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)SQR(null)FNFNTHEN (null)FN FN  THEN(null)
26 PRINT" [206][165][160][160][167][160][167][206] [165][167][167][206][163][163][163][163][163][163][163][163][163][163][163][163][205][165][165][167] [205][165] [165]  [167][205]
27 [153]" (null)FN CLOSETHENCLOSETHEN(null) (null)SQR(null)              (null)(null)SQR (null)FN FN CLOSETHEN(null)
28 PRINT" [206][165][160][160][167] [167][206][163][160] [163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]  [163][205][165] [165]  [167][205]
29 [153]" (null)FNCLOSECLOSETHENCLOSETHEN                        FN FN  THEN(null)
30 PRINT" [206][165][160][160][167] [206]"TAB(32)"[205][160][165][160] [167][205]"
31 PRINT" [206][204][175][175][186][206] "TAB(33)"[205][204][175][175][186][205]"
32 PRINT"[183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183][183]"
33 PRINT"   ";D$(CD);"  [160]     #[160]$[160]%[160]&[160]'[160]([160])[160]* +       ";D$(CD);"  [146]";
34 PRINTL$(DD);:RETURN
35 PRINT"[183][208][157][157]";:FORX=.TO19:PRINT" [167][157][157]";:NEXT:PRINT"[175][186][157][157] [146][169]":RETURN
36 PRINT"";TAB(8)"[183][208][157][157]";:FORX=.TO8:PRINT" [167][157][157]";:NEXT:PRINT"[175][186][157][157][146][169]"
37 RETURN
38 PRINT"";TAB(13)"[208][157]";:FORX=.TO3:PRINT"[167][157]";:NEXT:PRINT"[186][157][146][169]"
39 RETURN
40 PRINT"";TAB(16)"[208][157][186][157][146][169]";
41 RETURN
42 PRINT"";TAB(38)"[207][157]";:FORX=.TO19:PRINT"[165][157]";:NEXT:PRINT"[204][157][146][223]":RETURN
43 PRINT""TAB(30)"[207][183][157][157]";:FORX=.TO8:PRINT"[165] [157][157]";:NEXT:PRINT"[204][175][157][146][223]
44 [142]
45 [153]"";[163]26)"(null)CMD";:[129]X[178].[164]3:[153]"FNCMD";:[130]:[153]"(null)CMDWAIT(null)"
46 [142]
47 [153]"";[163]23)"(null)CMD(null)CMDWAIT(null)"
48 [142]
49 [153]"";:[129]X[178].[164]3:[153][163]6);
50 [153]"(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)"
51 [153][163]6)"(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)"
52 [153][163]6)"(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)"
53 [153][163]6)"SQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR"
54 [130]
55 [153][163]6)"(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)USR(null)(null)"
56 [153][163]6)"(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)ANDSQR(null)"
57 [142]
58 [153]"";:[129]X[178].[164]4:[153][163]12);"(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR"
59 [153][163]12);"USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)USR(null)":[130]:[142]
60 [153]"";:[129]X[178].[164]4:[153][163]15);"NOTNOTNOTNOTNOTNOTNOTNOTNOTNOT":[130]:[142]
61 [153]"";:[153][163]18)"SPC(SPC(SPC(SPC(":[142]
62 [153]"";[163]15)"::::::::::":[153][163]15)":WAIT////////:"
63 [153][163]15)":WAIT/(null)USRUSRUSRUSR(null)/:":[153][163]15)":WAIT/FNLENLENLENLENTHEN/:"
64 [153][163]15)":WAIT/(null)ANDANDANDANDSQR/:":[153][163]15)":WAIT///////PEEK:"
65 [153][163]15)":WAIT///////(null):"
66 [129]X[178].[164]5:[153][163]15)":WAIT////////:":[130]:[142]
67 [153]"";:[153][163]17)"::::::":[153][163]17)":WAIT////:"
68 [153][163]17)":WAIT/LENLEN/:":[153][163]17)":WAIT///(null):"
69 [129]X[178].[164]3:[153][163]17)":WAIT////:":[130]:[142]
70 [153]"";[163]19)"*RND":[129]X[178].[164]2:[153][163]19)"//":[130]:[142]
71 [153]"";[163]19)"(null)(null)":[142]
72 [153]"":[129]X[178].[164]21:[153]"(null)(null)"[163]38)"(null)":[130]
73 [153]"(null)(null)SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(SPC(WAIT(null)";:[141]62:[142]
74 [153]"";[163]12)"STEP(null)USRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSRUSR(null)(null)";:[142]
75 [153]"";[163]14)"STEP(null)USRUSRUSRUSRUSRUSRUSRUSR(null)(null)";:[142]
76 [153]"";[163]16)"STEP(null)USRUSRUSRUSR(null)(null)";:[142]
77 [153]"";[163]18)"STEP(null)(null)(null)";:[142]
78 [153]""[163]12)"(null)(null)ANDANDANDANDANDANDANDANDANDANDANDANDSQRWAITSTEP":[142]
79 [153]""[163]14)"(null)(null)ANDANDANDANDANDANDANDANDSQRWAITSTEP":[142]
80 [153]"";[163]16)"(null)(null)ANDANDANDANDSQRWAITSTEP":[142]
81 [153]"";[163]18)"(null)(null)SQRWAITSTEP":[142]
82 [153]"";:[153][163]14)"THEN"[163]25)"FN"
83 [129]X[178].[164]6:[153][163]14)"THENVALVALVALVALVALVALVALVALVALVALFN":[153][163]14)"THEN"[163]25)"FN"
84 [153][163]14)"THEN"[163]25)"FN":[130]
85 [153][163]14)"THENVALVALVALVALVALVALVALVALVALVALFN":[153][163]14)"THEN"[163]25)"FN":[142]
86 [153]"";:[129]X[178].[164]6
87 [153][163]16)"(null)VALVALVALVALVALVAL(null)":[153][163]16)"(null)"[163]23)"(null)":[130]:[142]
88 [153]"";:[129]X[178].[164]7
89 [153][163]18)"*NEWNEWRND":[130]:[142]
90 [153]"";:[129]X[178].[164]2:[153][163]19)"-<":[130]:[142]
91 [153]"";[163]11)"STEP(null)--------------(null)(null)"
92 [153][163]10)"STEP(null)----------------(null)(null)":[142]
93 [153]"";[163]14)"STEP(null)========(null)(null)":[153][163]14)"(null)TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB(TAB((null)"
94 [153][163]14)"(null)TAB(=TAB(TAB(TAB(TAB(TAB(TAB(=TAB((null)":[142]
95 [153]""[163]16)"STEP(null)====(null)(null)":[153][163]16)"(null)=TAB(TAB(TAB(TAB(=(null)":[142]
96 [153]""[163]17)"STEP====(null)":[153][163]17)"(null)=TAB(TAB(=(null)":[142]
97 CEM[178][165]TE(.):[151]648,CEM:[153]L$(DD);:[141]10
98 FC[178]4:VL[178]FC:LP[178]FC:LV[178]CD[171]1[170]4[172][171](CD[178]1):RV[178]CD[170]1[170]4[172](CD[178]4)
99 EBM[178][165]CP(.):[139]EBM[177][171]1[175]EBM[179]256[167]102
100 [139]FC[167]FC[178]FC[171]1:[137]99
101 [142]
102 EL[178][165]CP(LV):ER[178][165]CP(RV)
103 [139](DL(EBM,.))[167]105
104 [141]3:FC[178]FC[171]1:[145]1[171](FC[179].)[137]99,113
105 [139]DL(EL,.)[175]FC[179]4[167][145]FC[170]1[141]35,36,38,40
106 [139]DL(ER,.)[175]FC[179]4[167][145]FC[170]1[141]42,43,45,47
107 [129]D[178]1[164]5:[139](DL(EBM,.)[175]BO(D))[167][145]D[141]9,6,7,8,5
108 [153]"WAIT";:[130]:FC[178]FC[171]1:[139]FC[177][171]1[167]99
109 [139]DL(CL,2)[178].[167]113
110 [129]X[178].[164]8:[151]XR,22:[151]YR,.:[151]PR,.:[158]PLOT
111 [139](DL(CL,2)[175]BO(X))[167][153][163]X[172]4[170]3);OA$(X)
112 [130]
113 [141]116
114 CSM[178][165]SW(.):[151]53272,([194](53272)[175]15)[176]CSM:[151][165]PM(U),7:[142]
115 :
116 [139]FC[175]VL[167]VL[178]VL[171]1
117 D[178]61:[151][165]MP(1),D:[151][165]MP(2),D:[151][165]MP(3),D:[151][165]MP(5),D
118 EL[178].:ER[178].:[129]X[178]VL[164].[169][171]1:FC[178][165]CM(X):[139]DL(FC,1)[178].[167]122
119 FC[178]DL(FC,1)[171]1:EL[178](EL[176]SP(X[170]4)):[139]X[177]LP[167]ER[178](ER[176]SP(X[170]4))
120 MB[178]SP(X)[171]1:[129]D[178]1[164][195](SB$(X,FC)):[151][165]MP(MB[170]D),[198]([202](SB$(X,FC),D,1))
121 [151]BC[170]SP(X)[170]D,CS(FC):[130]
122 [130]:[151]V[170]21,EL:[151]V[170]27,ER:[142]
123 [151]56578,[194](56578)[176]3:[151]56576,([194](56576)[175]252)
124 [151]53272,[194](53272)[175]15:[151]648,192:[151]53272,([194](53272)[175]240)[176]12
125 [151]53270,[194](53270)[175]247
126 [153][199](147):[141]234:[141]238
127 [134]DL(255,2),BO(15),SP(7),SB$(3,7),D$(4),L$(6),OA$(8),CS(7),M(15),MH(15)
128 [134]HC(2):X[178].:D[178].:FC[178].:CL[178]17:CD[178]2:VL[178].:EL[178].:ER[178].:VS[178].
129 D(1)[178]1:D(2)[178]16:D(3)[178][171]1:D(4)[178][171]16:CS(.)[178]9:CS(1)[178]2:CS(2)[178]6:CS(3)[178]9:CS(4)[178]4
130 CS(5)[178]14:CS(6)[178]13:CS(7)[178]1:LP[178].:P[178].:L[178]1:LF[178]10
131 SP(.)[178].:SP(1)[178]4:SP(2)[178]6:SP(3)[178]7:SP(4)[178]15:SP(5)[178]48:SP(6)[178]64:SP(7)[178]128
132 TGL[178]16:CSM[178].:CEM[178]192:V[178]53248
133 D$(1)[178]"E":D$(2)[178]"S":D$(3)[178]"W":D$(4)[178]"N"
134 NJ[178]255:FJ[178]254:LJ[178]251:RJ[178]247:BJ[178]253:US[178]239:MU[178]237:U[178].
135 TL[178]388:DD[178]6:PLOT[178]65520:AR[178]780:XR[178]781:YR[178]782:PR[178]783:S[178]54272:BC[178]V[170]38
136 RU[178]156:CU[178]142:ALL[178]511:HX[178]157:WL[178]17:CC[178]204:CR$[178][199](13)
137 [150][165]CP(X)[178]FC[172]D(CD)[170](CL[170]D(X)):[150][165]SW(X)[178](TGL[171]CSM)
138 [150][165]TE(X)[178](TL[171]CEM):[150][165]CM(X)[178]X[172]D(CD)[170]CL:[150][165]MP(X)[178]CEM[172]256[170]1016[170]X
139 [150][165]PM(X)[178]55296[170]972[170](X[172]2)
140 [129]X[178].[164]15:BO(X)[178]2[174]X:[130]:L$(.)[178]"":L$(1)[178]"LIST":L$(2)[178]"PRINT#":L$(3)[178]"POKE"
141 L$(4)[178]"POKE":L$(5)[178]"":L$(6)[178]"STOP":HC(.)[178]2:HC(1)[178]8:HC(2)[178]10
142 [129]X[178].[164]239:[135]D:DL(X,.)[178]D:[130]
143 [129]X[178].[164]8:[135]A$:OA$(X)[178]A$:[130]X
144 [129]X[178].[164]15:[135]A:M(X)[178]A:[130]X
145 [129]X[178]3[164].[169][171]1:[129]D[178].[164]7:[135]A$:SB$(X,D)[178]A$:[130]D,X
146 [129]X[178].[164]8
147 A[178][181]([187](1)[172]93[170]34):[139]DL(A,.)[178].[167]147
148 DL(A,1)[178]M(X):M(X)[178]A:MH(X)[178]X[172]4[170]1:[130]
149 [129]X[178]9[164]15
150 A[178][181]([187](1)[172]96[170]142):[139]DL(A,.)[178].[167]150
151 DL(A,1)[178]M(X):M(X)[178]A:MH(X)[178]X[172]4[170]1:[130]
152 D[178]52288:[129]X[178].[164]767:[135]A:[151]D[170]X,A:[130]:[129]X[178].[164]63:[151]53055[170]X,.:[130]
153 [153]"POKE":[129]X[178].[164]8:[151]XR,15:[151]YR,.:[151]PR,.:[158]PLOT
154 [153][163]X[172]4[170]2);OA$(X)
155 [130]
156 [153]" F1/ START NEW GAME  F2/ LOAD OLD GAME";:[151]198,.
157 [161]A$:[139]A$[179][177][199](133)[175]A$[179][177][199](137)[167]157
158 [139]A$[178][199](137)[167][141]267
159 DL(CC,1)[178]BO(8)
160 [151]V[170]21,.:[151]V[170]23,127:[151]V[170]29,15:[151]V,150:[151]V[170]1,193:[151]V[170]2,151
161 [151]V[170]3,151:[151]V[170]4,119:[151]V[170]5,109:[151]V[170]6,167:[151]V[170]7,109:[151]V[170]8,164
162 [151]V[170]9,174:[151]V[170]10,164:[151]V[170]11,133:[151]V[170]12,168:[151]V[170]13,152
163 [151]V[170]14,172:[151]V[170]15,160
164 [141]322:[141]97:IT[178]TI[170]1000
165 JOY[178][194](56321)
166 [139][187](1)[177].93[167][151]S[170]1,[187](1)[172]7[170]2
167 B[178]DL(CL,1):[139]B[175][187](1)[170]B[173]100[177].95[167][141]200
168 [139]TI[177]IT[167][141]247:[137]181
169 [139]JOY[178]NJ[167]165
170 [139](DL(CL[170]D(CD),.)[175]BO(5[170]CD))[167]172
171 [139]JOY[178]FJ[175]DL(CL[170]D(CD),.)[167]CL[178]CL[170]D(CD):[137]180
172 [139](DL(CL[171]D(CD),.)[175]BO(5))[167]174
173 [139]JOY[178]BJ[175]DL(CL[171]D(CD),.)[167]CL[178]CL[171]D(CD):[137]180
174 [139]JOY[178]RJ[167]CD[178]CD[170]1:[137]179
175 [139]JOY[178]LJ[167]CD[178]CD[171]1:[137]179
176 [139]JOY[178]US[167][145]U[170]1[141]210,211,4,219,221,226,229,4,4:[137]165
177 [139]JOY[178]MU[167][141]185:[141]322:[137]165
178 [141]319:[141]322:[137]165
179 CD[178]CD[170]((CD[178]5)[172]4)[170]((CD[178].)[172][171]4)
180 [141]97:[137]165
181 VS[178]VS[170]1:[139]VS[178]DD[172]6[167]VS[178].:DD[178]DD[170]((DD[179]6)[172][171]1):[139]DD[178]6[167]L[178](L[175]254)
182 LF[178]LF[170]((LF[179]60)[172][171].2):[139](L[175]1)[178].[167]DD[178]6
183 [151]V[170]32,(LF[179]5)[172][171]2[170](LF[177][178]5[175]LF[179]10)[172][171]7
184 [137]165
185 [151]198,.
186 [139]CU[178]14[167]CU[178]142:[153][199](9);[199](CU);[199](8);:[141]280:[151]V[170]33,.
187 [129]X[178].[164]8:[139](L[175]BO(X))[167][151][165]PM(X),10
188 [130]:X[178].:A[178][184](.):A[178].:[139](L[175](BO(U)))[167][151][165]PM(U),7
189 [139][194](56321)[179][177]NJ[167]189
190 [151][165]PM(X),1:[139](L[175]BO(A))[167][151][165]PM(A),10:[137]192
191 [151][165]PM(A),2
192 JY[178][194](56321):[161]A$:[139]A$[178][199](140)[167]259
193 P[178]L:[139]JY[178]RJ[167]A[178]X:X[178]X[170]1[170](X[178]8)[172]9
194 [139]JY[178]US[175](L[175]BO(X))[167][151][165]PM(U),10:U[178]X:[151][165]PM(X),7:[141]319
195 [139]JY[178]US[167][142]
196 [139]JY[178]FJ[175](DL(CL,2)[175]BO(X))[167]L[178](L[176]BO(X)):DL(CL,2)[178]DL(CL,2)[171]BO(X)
197 [139]JY[178]BJ[175](L[175]BO(X))[167]L[178](L[175](511[171]BO(X))):DL(CL,2)[178]DL(CL,2)[176]BO(X):U[178].
198 [139]L[179][177]P[167][141]319:[141]97:[137]186
199 [137]190
200 [139]B[178]6[167]U[178].:DL(HX,2)[178]DL(HX,2)[176](L[175]238):L[178]L[175]273
201 [139]CU[178]14[167][142]
202 D[178][181]([187](1)[172]3[170]1):[151]V[170]33,HC(D[171]1):LF[178]LF[171](B[173]((L[175]4)[170]1))[170][171]D
203 [129]T[178]1[164]100:[130]:[151]V[170]33,.:[139]LF[179]1[167]205
204 [151]V[170]32,(LF[179]5)[172][171]2[170](LF[177][178]5[175]LF[179]10)[172][171]7:[141]324:[141]322:[142]
205 [151]V[170]33,.:[151]V[170]32,.:[141]277:[153]"LOADPOKE"[163]9)"THOU ART SLAIN !!!
206 PRINT" DO YOU WISH TO ENTER THE VAULT AGAIN?":POKE198,.
207 GETA$:IFA$=""THEN207
208 IFA$="N"THENPOKE648,4:POKE679,.:SYS679
209 POKEV+21,.:RUN
210 IFDD=6AND(LAND1)THENVS=.:DD=1:GOSUB97:RETURN
211 IFB=.ORRND(.)+LF/100<.5THENGOSUB324:RETURN
212 POKEV+33,5:FORT=1TO100:NEXT:POKEV+33,.:FORX=.TO15
213 ON1-(M(X)=.)GOTO214,217
214 IFCL=M(X)THENMH(X)=MH(X)-ABS(RND(.)+((LAND2)*1)+LF/5)
215 IFMH(X)>.THEN217
216 M(X)=.:DL(CL,1)=.:POKEV+21,PEEK(V+21)AND240:GOSUB277:GOSUB218
217 NEXT:GOSUB324:GOSUB322:RETURN
218 LF=LF+B/4:DL(CL,2)=(DL(CL,2)ORBO(B-1)):GOSUB97:GOSUB319:RETURN
219 CU=RU-CU:PRINTCHR$(9);CHR$(CU);CHR$(8);:POKEV+33,(CU=14)*-4
220 GOSUB280:GOSUB322:RETURN
221 IF(DL(CL,.)ANDBO(2))THENCL=CL+128:GOSUB315:GOSUB97:GOSUB322:RETURN
222 IF(DL(CL,.)AND24)=24AND(LAND384)=384THENDL(CL,2)=DL(CL,2)ORBO(8):L=LAND255
223 IF(DL(CL,.)AND24)=24THENCL=CL-128:GOSUB312:GOSUB97:GOSUB322:RETURN
224 IFCL=WLANDL=ALLTHEN232
225 GOSUB319:GOSUB322:RETURN
226 IFB=6THENGOTO212
227 DL(CL+D(CD),.)=(DL(CL+D(CD),.)AND63):GOSUB280:GOSUB322
228 RETURN
229 IF(DL(CL+D(CD),.)ANDBO(5))=.THENRETURN
230 IF(DL(CL+D(CD),.)ANDBO(5+CD))THENDL(CL+D(CD),.)=DL(CL+D(CD),.)-BO(5+CD)
231 GOSUB324:GOSUB322:RETURN
232 PRINT"[147]":PRINT" THE CROWN [159]OF [156]SARNOTH HAS [158]BEEN RETURNED!"
233 PRINT"[154] NOBLE WARRIOR,YOU HAVE SURVIVED VAULT ":GOSUB280:GOTO206
234 FORX=1TO33:READA:POKE680+X,A:NEXT:POKE56334,PEEK(56334)AND254
235 POKE1,PEEK(1)AND251:SYS681:POKE1,PEEK(1)OR4:POKE56334,PEEK(56334)OR1
236 READA:IFA=-1THENRETURN
237 FORX=.TO7:READD:POKE61440+A*8+X,D:NEXT:GOTO236
238 PRINTCHR$(142)CHR$(8)CHR$(31)CHR$(19);
239 FORH=1TO36:PRINT"[168]";:NEXT:FORV=1TO23:PRINTTAB(1)"[168]"TAB(37)"[168]"
240 NEXT:FORH=1TO38:PRINT"[168]";:NEXT
241 PRINT""TAB(2)"[156]   PREPARE THYSELF,BRAVE WARRIOR..."
242 PRINTTAB(2)"[151] [146]$  V A U L T  O F  T E R R O R  [146]$ "
243 PRINTTAB(4)"[146] A 3-DIMENSIONAL ADVENTURE GAME  "
244 PRINT" "TAB(2)" PLEASE WAIT.....OPENING DUNGEON!!!"
245 RETURN
246 D=.:FC=8:IFCL>127THEND=9:FC=15
247 P=6:D=.:FC=8:IFCL>127THEND=9:FC=15
248 FORX=DTOFC:ON1-(M(X)=.)GOTO249,255
249 IFCL<M(X)-PTHENA=M(X)+D(4)
250 IFCL>M(X)+PTHENA=M(X)+D(2)
251 IFCL>M(X)ANDCL<M(X)+PTHENA=M(X)+D(1)
252 IFCL<M(X)ANDCL>M(X)-PTHENA=M(X)+D(3)
253 IFA<.ORA>255THEN255
254 IFDL(A,.)ANDDL(A,1)=.THENDL(A,1)=DL(M(X),1):DL(M(X),1)=.:M(X)=A
255 NEXT
256 D=DL(CL,1):IFDTHENONDGOSUB288,288,296,296,301,4,308,305:GOSUB322
257 POKEV+21,.:FC=.:GOSUB116:IT=TI+1000:RETURN
258 RETURN
259 PRINT"[146] SAVING";
260 OPEN1,8,15:PRINT#1,"S0:LASTDUNGEON":CLOSE1
261 OPEN1,8,2,"LASTDUNGEON,U,W":FORX=.TO2:FORD=.TO255:PRINT#1,DL(D,X)CR$
262 NEXTD:PRINT".";:NEXTX:PRINT".";:FORX=.TO15:PRINT#1,M(X),CR$,MH(X),CR$
263 NEXTX:PRINT".";
264 PRINT#1,CL,CR$,CD,CR$,LF,CR$,L,CR$,U,CR$,DD,CR$,VS,CR$,HX,CR$,WL,CR$
265 PRINT#1,CC,CR$
266 CLOSE1:GOTO185
267 PRINT"[145][145][145][145]":PRINTTAB(7);:INPUT" FILENAME  ";A$:A$=LEFT$(A$,11)
268 F$="LASTDUNGEON":IFA$<>"[168]"THENF$=A$
269 OPEN1,8,15:PRINT#1,"I0:":CLOSE1:OPEN1,8,2,F$+",U,R"
270 FORX=.TO2:FORD=.TO255:INPUT#1,DL(D,X):NEXTD,X:FORX=.TO15
271 INPUT#1,M(X),MH(X)
272 NEXTX
273 INPUT#1,CL,CD,LF,L,U,DD,VS,HX,WL,CC
274 CLOSE1:OPEN1,8,15:INPUT#1,A,B$,C,D:CLOSE1
275 IFATHENPRINT""TAB(8)A;B$;C;D
276 FORT=1TO5000:NEXT:RETURN
277 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15:POKES+5,8:POKES+6,255
278 POKES+4,21:F1=2:FORZ=1TO24:F2=80:POKES+1,F1:FORY=1TO5:POKES+15,F2
279 F2=F2/1.1:NEXTY:F1=F1+9:NEXTZ:POKES+6,15:RETURN
280 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
281 POKES+5,8:POKES+6,255:POKES+4,23:F1=10
282 FORZ=1TO30:F2=30:POKES+1,F1:FORY=1TO10:POKES+15,F2
285 F2=F2*1.01:NEXT:F1=F1+1:NEXT:POKES+6,15:RETURN
288 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
289 POKES+5,8:POKES+6,255:POKES+4,23:F1=11:F2=25
290 FORZ=5TO50:POKES+1,F1:POKES+15,F2:F2=F2*.97:F1=F1+1:NEXT:POKES+6,15:RETURN
296 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15:POKES+5,24:POKES+6,248:POKES+4,33
299 FORP=17TO13STEP-1:POKES,P:FORT=125TO135:POKES+1,T:NEXTT,P:POKES+4,32
300 RETURN
301 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
302 POKES+5,8:POKES+6,255:POKES+4,23:F1=15:F2=F1
303 FORZ=1TO10:POKES+1,F1:POKES+15,F2:F2=F2*1.01:F1=F1*1.3:NEXTZ
304 POKES+6,15:RETURN
305 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15:POKES+5,8:POKES+6,255:POKES+4,23
306 F1=8:F2=4:FORZ=1TO30:POKES+1,F1:POKES+15,F2:F2=F2*1.01:F1=F1+1:NEXT
307 POKES+6,15:RETURN
308 FORP=STOS+24:POKEP,.:NEXT
309 POKES+24,15:POKES+5,155:POKES+6,245
310 POKES+4,129:FORP=50TO55:POKES,D
311 FORT=35TO55:POKES+1,T:NEXTT,P:POKES+4,128:FORT=1TO100:NEXT:RETURN
312 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
313 POKES+5,8:POKES+6,255:POKES+4,23:FORF1=4TO18STEP2:POKES+15,F1
314 FORF2=10TO180STEP2:POKES+1,F2:NEXTF2,F1:POKES+6,15:RETURN
315 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
316 POKES+5,8:POKES+6,255:POKES+4,23
317 FORF=15TO8STEP-1:FORF1=18TO10STEP-2:POKES+15,F1
318 FORF2=12TO4STEP-1:POKES+1,F2:POKES+15,F:NEXTF2,F1,F:POKES+6,15:RETURN
319 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
320 POKES+5,96:POKES+6,96:POKES+4,23:POKES+2,85:POKES+1,36
321 FORF=1TO10:NEXT:POKES+6,15:RETURN
322 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
323 POKES+1,10:POKES,5:POKES+5,129:POKES+6,129:POKES+4,21:RETURN
324 FORP=STOS+24:POKEP,.:NEXT:POKES+24,15
325 POKES+1,25:POKES,5:POKES+5,20:POKES+6,20:POKES+4,129:FORT=1TO75:NEXT
326 POKES+4,128:RETURN
327 DATA 169,,133,251,133,253,169,208,133,252,169,240,133,254,162,8
328 DATA 160,,177,251,145,253,136,208,249,230,252,230,254,202,208,240,96
329 DATA035,24,60,110,110,110,110,110,110
330 DATA036,255,199,231,129,,60,126,255
331 DATA037,255,60,24,255,219,153,153,24
332 DATA038,24,24,60,102,102,60,,
333 DATA039,,126,127,127,112,126,,255
334 DATA040,110,110,110,110,110,110,110,110
335 DATA042,60,60,255,153,60,60,60,60
336 DATA081,255,231,231,231,231,219,195,231
337 DATA083,231,195,153,189,165,153,195,255
338 DATA086,27,31,31,27,59,123,219,155
339 DATA088,126,102,102,126,24,24,30,30
340 DATA091,216,248,248,216,220,222,219,217
341 DATA092,175,88,171,88,168,88,168,88
342 DATA102,219,54,219,102,219,54,219,102
343 DATA104,24,255,192,192,192,255,24,24
344 DATA107,31,24,31,24,31,24,31,24
345 DATA108,255,182,255,191,240,176,247,176
346 DATA109,255,129,255,129,255,255,129,255
347 DATA115,248,24,248,24,248,24,248,24
348 DATA123,255,109,255,253,15,13,239,13
349 DATA163,255,159,159,239,247,251,253,255
350 DATA164,239,239,239,239,239,199,239,239
351 DATA165,189,129,153,189,165,129,195,231
352 DATA166,255,255,231,219,219,231,255,255
353 DATA167,207,183,123,195,129,,255,255
354 DATA168,199,239,131,239,239,239,239,239
355 DATA169,199,215,199,239,239,239,231,231
356 DATA170,129,195,231,195,153,16,153,195
357 DATA171,255,255,102,,90,,255,255
358 DATA173,255,129,255,255,231,231,255,255
359 DATA186,255,231,255,231,255,231,255,231
360 DATA189,255,129,255,239,255,129,255,239
361 DATA197,255,,255,255,255,255,,255
362 DATA220,250,21,218,21,26,21,26,21
363 DATA230,54,177,129,108,108,153,153,102
364 DATA242,255,255,189,189,129,255,219,255,-1
365 DATA .,,,,,,,,,,,,,,,.
366 DATA .,8,2,1,2,1,,1,1,1,,1,352,4,2,.
367 DATA .,1,,16,,1,,1,,1,32,1,,2,2,.
368 DATA .,1,,1,1,2,16,1,,1,,1,,,1,.
369 DATA .,4,1,2,,1,,1,2,1,1,2,1,,4,.
370 DATA .,1,,1,,1,1,1,,,,,1,,,.
371 DATA .,2,1,1,1,1,32,1,1,4,1,2,1,1,34,.
372 DATA .,,,,,,,,,,,,,,,.
373 DATA .,2,1,1,2,16,2,1,1,1,,2,2,2,2,.
374 DATA .,1,,1,,1,,1,,1,1,1,1,984,2,.
375 DATA .,2,1,1,,1,2,1,2,1,,32,2,2,2,.
376 DATA .,,,2,,1,,1,,1,,129,,,,.
377 DATA .,24,1,1,1,1,,2,1,1,,1,65,,24,.
378 DATA .,1,,,1,,1,1,,1,,1,,,1,.
379 DATA .,1,2,2,1,2,1,,,168,,129,2,1,1,.
381 DATA "[145][219][146][157][205][205][157][205][205]"
382 DATA "[145][145]#[157]([157]([157]*"
383 DATA "[145][223][169][157][157][157][157][194][146]$$[194][157][157][157][157][194][178][178][194]"
384 DATA "&"
385 DATA "[202][201][157][157][166][166][166]"
386 DATA "[145]*[157][146][194][157][194]"
387 DATA "[157][216]"
388 DATA "[145][145][157][157][157][223] [146][169][157][157][157][169][163][223][157][157][157][157][169] [146]'[160][223][157][157][157][157][157][146][223][163][163][163][146][169]"
389 DATA "[157][157][223][169][223][169][157][157][157][157]===="
390 DATA 1,1,2,2,3,3,4,5,5,6,6,6,7,7,7,8
391 DATA 1,1,2,2,3,4,<,<
392 DATA 1,1,2,2,3,4,<,<
393 DATA 1,1,2,2,3,65,":;",":;"
394 DATA 1,1,2,2,3,65,":978",":978"
395 DATA0,,,,,,,
396 DATA0,,,,4,,32,6
397 DATA0,96,5,60,160,8,255,16
398 DATA016,255,8,19,255,200,36,255
399 DATA036,9,255,144,18,255,72,37
400 DATA126,164,42,60,84,36,24,36
401 DATA042,60,84,4,90,32,2,126
402 DATA064,1,90,128,,36,,
403 DATA0,,,56,255,,67,255
404 DATA192,55,255,224,15,255,240,15
405 DATA255,240,15,255,240,14,255,176
406 DATA014,127,48,30,190,184,62,221
407 DATA188,127,107,126,252,255,159,120
408 DATA221,143,120,73,7,56,127,3
409 DATA024,93,3,12,8,30,30,
410 DATA047,53,,10,85,,20,
411 DATA052,66,15,24,102,31,44,90
412 DATA033,6,102,1,3,90,1,7
413 DATA165,